10 PRINT "EXAMPLE OF NEWTON-RAPHSON ROOT FINDING": PRINT
15 DEF FNX (XX) = A0 + XX * (A1 + A2 * XX) + A3 * SIN(OMEGA * XX)
20 DEFINT I: READ A0, A1, A2, A3, OMEGA, X0: DATA 1.55,1.,-.5,1.,1.5708,.95
30 RRINT: PRINT "A0, A1, A2 A3M OMEGA, X0="; A0, A1, A2; A3M; OMEGA, X0
40 X = X0: FOR I = 1 TO 9
50 X = X - (A0 + X * (A1 + A2 * X) + A3 * SIN(OMEGA * X)) / (A1 + 2! * A2 * X + A3 * OMEGA * COS(OMEGA * X))
55 PRINT X; FNX(X)
60 NEXT I:   PRINT "X="; X